Imports System
Imports System.ComponentModel
Imports System.Data
#If MONO_STRICT Then
Imports System.Data.Linq
#Else     ' MONO_STRICT
Imports DbLinq.Data.Linq
Imports DbLinq.Vendor
#End If   ' MONO_STRICT
Imports System.Data.Linq.Mapping
Imports System.Diagnostics

'
'  ____  _     __  __      _        _ 
' |  _ \| |__ |  \/  | ___| |_ __ _| |
' | | | | '_ \| |\/| |/ _ \ __/ _` | |
' | |_| | |_) | |  | |  __/ || (_| | |
' |____/|_.__/|_|  |_|\___|\__\__,_|_|
'
' Auto-generated from main on 2012-07-01 15:36:34Z.
' Please visit http://code.google.com/p/dblinq2007/ for more information.
'
Namespace ArbAuf
	
	Partial Public Class Main
		Inherits DataContext
		
		#Region "Extensibility Method Declarations"
		Partial Private Sub OnCreated()
		End Sub
		#End Region
		
		
		Public Sub New(ByVal connectionString As String)
			MyBase.New(connectionString)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As String, ByVal mappingSource As MappingSource)
			MyBase.New(connection, mappingSource)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As IDbConnection, ByVal mappingSource As MappingSource)
			MyBase.New(connection, mappingSource)
			Me.OnCreated
		End Sub
		
		Public ReadOnly Property Arbeitsaufzeichnung() As Table(Of Arbeitsaufzeichnung)
			Get
				Return Me.GetTable(Of Arbeitsaufzeichnung)
			End Get
		End Property
		
		Public ReadOnly Property Typen() As Table(Of Typen)
			Get
				Return Me.GetTable(Of Typen)
			End Get
		End Property
	End Class
	
	#Region "Start MONO_STRICT"
#If MONO_STRICT Then
    '"
	Partial Public Class Main
		
		Public Sub New(ByVal connection As IDbConnection)
			MyBase.New(connection)
			Me.OnCreated
		End Sub
	End Class
	#Region "End MONO_STRICT"
	#End Region
#Else     ' MONO_STRICT"
	
	Partial Public Class Main
		
		Public Sub New(ByVal connection As IDbConnection)
			MyBase.New(connection, New DbLinq.Sqlite.SqliteVendor)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As IDbConnection, ByVal sqlDialect As IVendor)
			MyBase.New(connection, sqlDialect)
			Me.OnCreated
		End Sub
		
		Public Sub New(ByVal connection As IDbConnection, ByVal mappingSource As MappingSource, ByVal sqlDialect As IVendor)
			MyBase.New(connection, mappingSource, sqlDialect)
			Me.OnCreated
		End Sub
	End Class
	#Region "End Not MONO_STRICT"
	#End Region
#End If     ' MONO_STRICT"
	#End Region
	
	<Table(Name:="main.Arbeitsaufzeichnung")>  _
	Partial Public Class Arbeitsaufzeichnung
		Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
		
		Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("")
		
		Private _datum As String
		
		Private _id As String
		
		Private _monat As String
		
		Private _typeIgUid As String
		
		#Region "Extensibility Method Declarations"
		Partial Private Sub OnCreated()
		End Sub
		
		Partial Private Sub OnDatumChanged()
		End Sub
		
		Partial Private Sub OnDatumChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnIDChanged()
		End Sub
		
		Partial Private Sub OnIDChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnMonatChanged()
		End Sub
		
		Partial Private Sub OnMonatChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnTypeIgUidChanged()
		End Sub
		
		Partial Private Sub OnTypeIgUidChanging(ByVal value As String)
		End Sub
		#End Region
		
		
		Public Sub New()
			MyBase.New
			Me.OnCreated
		End Sub
		
		<Column(Storage:="_datum", Name:="Datum", DbType:="nvarchar(12)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property Datum() As String
			Get
				Return Me._datum
			End Get
			Set
				If ((_datum Is value)  _
							= false) Then
					Me.OnDatumChanging(value)
					Me.SendPropertyChanging
					Me._datum = value
					Me.SendPropertyChanged("Datum")
					Me.OnDatumChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_id", Name:="ID", DbType:="nvarchar(36)", IsPrimaryKey:=true, AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property ID() As String
			Get
				Return Me._id
			End Get
			Set
				If ((_id Is value)  _
							= false) Then
					Me.OnIDChanging(value)
					Me.SendPropertyChanging
					Me._id = value
					Me.SendPropertyChanged("ID")
					Me.OnIDChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_monat", Name:="Monat", DbType:="nvarchar(20)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property Monat() As String
			Get
				Return Me._monat
			End Get
			Set
				If ((_monat Is value)  _
							= false) Then
					Me.OnMonatChanging(value)
					Me.SendPropertyChanging
					Me._monat = value
					Me.SendPropertyChanged("Monat")
					Me.OnMonatChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_typeIgUid", Name:="TypeIGuid", DbType:="nvarchar(36)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property TypeIgUid() As String
			Get
				Return Me._typeIgUid
			End Get
			Set
				If ((_typeIgUid Is value)  _
							= false) Then
					Me.OnTypeIgUidChanging(value)
					Me.SendPropertyChanging
					Me._typeIgUid = value
					Me.SendPropertyChanged("TypeIgUid")
					Me.OnTypeIgUidChanged
				End If
			End Set
		End Property
		
		Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
		
		Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
		
		Protected Overridable Sub SendPropertyChanging()
			Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
			If (Not (h) Is Nothing) Then
				h(Me, emptyChangingEventArgs)
			End If
		End Sub
		
		Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
			Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
			If (Not (h) Is Nothing) Then
				h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
			End If
		End Sub
	End Class
	
	<Table(Name:="main.Typen")>  _
	Partial Public Class Typen
		Implements System.ComponentModel.INotifyPropertyChanging, System.ComponentModel.INotifyPropertyChanged
		
		Private Shared emptyChangingEventArgs As System.ComponentModel.PropertyChangingEventArgs = New System.ComponentModel.PropertyChangingEventArgs("")
		
		Private _gesStunden As String
		
		Private _id As String
		
		Private _igUid As String
		
		Private _name As String
		
		Private _stunden As String
		
		#Region "Extensibility Method Declarations"
		Partial Private Sub OnCreated()
		End Sub
		
		Partial Private Sub OnGesStundenChanged()
		End Sub
		
		Partial Private Sub OnGesStundenChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnIDChanged()
		End Sub
		
		Partial Private Sub OnIDChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnIgUidChanged()
		End Sub
		
		Partial Private Sub OnIgUidChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnNameChanged()
		End Sub
		
		Partial Private Sub OnNameChanging(ByVal value As String)
		End Sub
		
		Partial Private Sub OnStundenChanged()
		End Sub
		
		Partial Private Sub OnStundenChanging(ByVal value As String)
		End Sub
		#End Region
		
		
		Public Sub New()
			MyBase.New
			Me.OnCreated
		End Sub
		
		<Column(Storage:="_gesStunden", Name:="GesStunden", DbType:="nvarchar(10)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property GesStunden() As String
			Get
				Return Me._gesStunden
			End Get
			Set
				If ((_gesStunden Is value)  _
							= false) Then
					Me.OnGesStundenChanging(value)
					Me.SendPropertyChanging
					Me._gesStunden = value
					Me.SendPropertyChanged("GesStunden")
					Me.OnGesStundenChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_id", Name:="ID", DbType:="NVARCHAR(36)", IsPrimaryKey:=true, AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property ID() As String
			Get
				Return Me._id
			End Get
			Set
				If ((_id Is value)  _
							= false) Then
					Me.OnIDChanging(value)
					Me.SendPropertyChanging
					Me._id = value
					Me.SendPropertyChanged("ID")
					Me.OnIDChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_igUid", Name:="IGuid", DbType:="nvarchar(36)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property IgUid() As String
			Get
				Return Me._igUid
			End Get
			Set
				If ((_igUid Is value)  _
							= false) Then
					Me.OnIgUidChanging(value)
					Me.SendPropertyChanging
					Me._igUid = value
					Me.SendPropertyChanged("IgUid")
					Me.OnIgUidChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_name", Name:="Name", DbType:="nvARCHAR(50)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property Name() As String
			Get
				Return Me._name
			End Get
			Set
				If ((_name Is value)  _
							= false) Then
					Me.OnNameChanging(value)
					Me.SendPropertyChanging
					Me._name = value
					Me.SendPropertyChanged("Name")
					Me.OnNameChanged
				End If
			End Set
		End Property
		
		<Column(Storage:="_stunden", Name:="Stunden", DbType:="nvarchar(10)", AutoSync:=AutoSync.Never, CanBeNull:=false),  _
		 DebuggerNonUserCode()>  _
		Public Property Stunden() As String
			Get
				Return Me._stunden
			End Get
			Set
				If ((_stunden Is value)  _
							= false) Then
					Me.OnStundenChanging(value)
					Me.SendPropertyChanging
					Me._stunden = value
					Me.SendPropertyChanged("Stunden")
					Me.OnStundenChanged
				End If
			End Set
		End Property
		
		Public Event PropertyChanging As System.ComponentModel.PropertyChangingEventHandler Implements System.ComponentModel.INotifyPropertyChanging.PropertyChanging
		
		Public Event PropertyChanged As System.ComponentModel.PropertyChangedEventHandler Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
		
		Protected Overridable Sub SendPropertyChanging()
			Dim h As System.ComponentModel.PropertyChangingEventHandler = Me.PropertyChangingEvent
			If (Not (h) Is Nothing) Then
				h(Me, emptyChangingEventArgs)
			End If
		End Sub
		
		Protected Overridable Sub SendPropertyChanged(ByVal propertyName As String)
			Dim h As System.ComponentModel.PropertyChangedEventHandler = Me.PropertyChangedEvent
			If (Not (h) Is Nothing) Then
				h(Me, New System.ComponentModel.PropertyChangedEventArgs(propertyName))
			End If
		End Sub
	End Class
End Namespace
